#!/usr/bin/perl -w

#####################################################################
# Program Variables - Go see the central config.pm!
#####################################################################
use FindBin qw($Bin);
use lib "$Bin/..";
use config;
use layout;

#####################################################################
# Program Modules
#####################################################################
# CGI Modules
use CGI;
use CGI::Carp;
use CGI::Pretty;

#####################################################################
# Program Start
#####################################################################
my $cgi = new CGI;

my $pagetitle = &read_config_option("tank_name") . " Configuration Index";

my @links;

push(@links, $cgi->a({ -href => "general.cgi" },    "General Configuration"));
push(@links, $cgi->a({ -href => "stats.cgi" },      "Configure the Water Tests"));
push(@links, $cgi->a({ -href => "graphs.cgi" },     "Configure the Graph Lines"));
push(@links, $cgi->a({ -href => "controller.cgi" }, "Tank Controller Setup"));

# Web Page output
&ts_pagestart($pagetitle);

print $cgi->ul($cgi->li([@links]));

print $cgi->center("Return to the " . $cgi->a({ -href => "../" }, &read_config_option("tank_name") . " Index") . ".");
print $cgi->end_html;
print "\n";

# Okay, we're done, exit now.
exit 0;

